home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / death sector (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  60 lines
  1. 100 rem********************************
  2. 110 rem         death sector
  3. 120 rem       frank e. digioia
  4. 130 rem********************************
  5. 140 rem the transactor vol 8 issue 3
  6. 150 rem********************************
  7. 160 data"warning!!! this program will "
  8. 170 data"create a sector on your disk "
  9. 180 data"which will cause the disk to "
  10. 190 data"self-destruct if b-e command"
  11. 200 data"is issued on that sector. "
  12. 210 rem********************************
  13. 220 reada$,b$,c$,d$,e$:rem read warning
  14. 230 r$=chr$(13):printa$r$b$r$c$r$d$r$e$
  15. 240 gosub570:rem verify disk name
  16. 250 open2,8,2,"#0":rem open buffer 0
  17. 260 print#15,"b-p";2;0:rem start of buf
  18. 270 for i=1 to 146:read ml:ck=ck+ml
  19. 280 print#2,chr$(ml);:next:rem fill buf
  20. 290 data234,234,234,169,  1,133,  6,169
  21. 300 data  0,133,  7,173,142,  3,174,143
  22. 310 data  3,172,144,  3,141,  0,  3,142
  23. 320 data  1,  3,140,  2,  3,169,224,133
  24. 330 data  0,165,  0, 48,252, 96,165, 34
  25. 340 data240,  4,201, 36,144,  4,169, 46
  26. 350 data133, 34, 32,102,  3, 32,102,  3
  27. 360 data198, 34,208,246,230, 34, 32,163
  28. 370 data253, 32,  0,254,165, 34,201, 36
  29. 380 data176, 11,230, 34, 32,109,  3, 32
  30. 390 data109,  3, 76, 62,  3,173,141,  3
  31. 400 data141, 62,  3,141, 63,  3,141, 64
  32. 410 data  3,169,  1, 76,105,249,174,  0
  33. 420 data 28,202, 76,113,  3,174,  0, 28
  34. 430 data232,138, 41,  3,141,145,  3,173
  35. 440 data  0, 28, 41,252, 13,145,  3,141
  36. 450 data  0, 28,160,  5,162,255,202,208
  37. 460 data253,136,208,250, 96,234, 76, 38
  38. 470 data  3,  0
  39. 480 ifck<>14432thenprint"bad data":stop
  40. 490 print#15,"u2";2;0;t;s:rem write blk
  41. 500 print"use this line to erase disk:"
  42. 510 print "open15,8,15:open2,8,2,";
  43. 520 print chr$(34)"#0"chr$(34)":print#";
  44. 530 print "15,"chr$(34)"b-e"chr$(34);
  45. 540 print "2;0;";t;";"s;":close15:close2"
  46. 550 close15:close2:end:rem finished!
  47. 560 rem********************************
  48. 570 rem  ***** read disk name *****
  49. 580 rem********************************
  50. 590 open15,8,15,"i0":rem refresh bam
  51. 600 rn$=chr$(144)+chr$(7)+chr$(16)
  52. 610 print#15,"m-r"rn$:rem point to name
  53. 620 fori=1to16:get#15,p$:n$=n$+p$:next
  54. 630 print"disk name:";n$
  55. 640 input"write death sector";yn$
  56. 650 if left$(yn$,1)<>"y" then end
  57. 660 print"where do you want death sector?"
  58. 670 input"track ";t:input"sector ";s
  59. 680 return
  60.